home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 46 / Amiga Format CD46 (1999-10-20)(Future Publishing)(GB)[!][issue 1999-12].iso / -in_the_mag- / reader_requests / scilab / demos / icse / icob.sci next >
Text File  |  1999-09-16  |  456b  |  17 lines
  1. //<ytob>=icob(dtv)
  2. //<ytob>=icob(dtv)
  3. //extraction de l'etat aux instants de mesure
  4. //variables d'entree:
  5. //dtv(ndtv) : tableau de travail double precision obtenu par
  6. //la mise en oeuvre de icse,icsu,icsua ou icsuq
  7. //variables de sortie :
  8. //ytob(ny,ntob) : valeur de l'etat aux instants de mesure
  9. //!
  10. ytob(ny,ntob)=0.d0;
  11. lob=ndtu+ny+ntob+nob*ny+nex*ntob*nob+2*nu+ntob*nob+ny*(nti+ntf+..
  12. 1+ny+nuc+nuv+1);
  13. ytob=matrix(dtv(lob+1:lob+ny*ntob),ny,ntob)
  14. //end
  15.  
  16.  
  17.